(check-ispell-version): Bind default-directory

to avoid errors.  Kill the old temp buffer at the beginning.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d1547c878207523b4419e41ced387a76b5c8f088..30b1c71f97b539865e16c3202d5059d0e14b749a 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -726,8 +726,11 @@ Otherwise returns the library directory name, if that is defined."
   (let ((case-fold-search-val case-fold-search)
        ;; avoid bugs when syntax of `.' changes in various default modes
        (default-major-mode 'fundamental-mode)
+       (default-directory temporary-file-directory)
        result status)
     (save-excursion
+      (let ((buf (get-buffer " *ispell-tmp*")))
+       (if buf (kill-buffer buf)))
       (set-buffer (get-buffer-create " *ispell-tmp*"))
       (erase-buffer)
       (setq status (call-process